home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / ddserve.zip / D&DTEST1.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-08-09  |  10KB  |  124 lines
  1. MULTIPIK
  2. D&D Demo: DropSelItems
  3. Form1
  4.     DummyList
  5. System
  6. Picture1
  7. wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww;
  8. wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
  9. Command1
  10. OKCancel
  11. System
  12. OKCancel
  13. &Cancel
  14. System
  15. iflag
  16. wMulPik
  17.     IDL_MPICK
  18.     Form_Load
  19. TRUE<
  20. Form_Paint
  21. hInst
  22. GetWindowWord
  23. MULTIPIK
  24. GWW_HINSTANCE
  25. Rect,
  26. GetWindowRect
  27.     DummyListP
  28. GetFocus<
  29. Visible
  30. FALSEN
  31. GetSystemMetrics
  32. SM_CYCAPTION|
  33. nWidth
  34. right
  35. nHeight
  36. BOTTOM
  37. CreateWindowt
  38. LBS_MULTIPICK
  39. IDL_MPIK
  40. HideMe
  41. ShowWindow
  42. SendDlgItemMessage
  43. LB_ADDSTRING
  44. ShowMe
  45. OKCancel_Click
  46. Index
  47. Total
  48. LB_GETSELCOUNTW
  49. Count
  50. Choices
  51. LB_GETSELITEMS
  52. LB_GETTEXT
  53. Notice#
  54. Thanks
  55. Caption
  56. SW_HIDE
  57. SW_SHOWR
  58. DummyList_Click
  59. SendMessage
  60. Result
  61. LBS_EXTPICK
  62. Form_MouseMove
  63. Button
  64. Shift
  65. DestroyWindow
  66. GWW_ID
  67. OldhWndh
  68. Dir1_Change
  69. LB_RESETCONTENT
  70. LB_DIR
  71. NewSpec
  72. LBS_FILELIST
  73. Dir1_Click
  74. Command1_Click
  75. DropSelItems
  76. hList
  77. nButton
  78. Picture1_Click
  79. Picture1_MouseDown
  80. hRes<
  81.  Feel free to use or modify MULTIPIK to suit your needss
  82.  Address questions/comments/improvements tot
  83.  Costas Kitsos, CIS ID: 73667,1755
  84.  Enjoy!
  85. Modified to demo drag 'n drop server capabilityy
  86. by Jonathan Zuck, 8/9/92
  87. D&DSERVE.DLL
  88.  Flag used during the creation of the MultiPick ListBox_
  89.  Window handle for the MultiPick ListBox
  90. Form_Load
  91.  Set the flag to TRUE to inform Form_Paint to create the MultiPick ListBox
  92. Form_Paint
  93.  Get the Instance handle to MULTIPIK.  We need this for the 
  94.  CreateWindow function.e
  95.  Get the dimensions of the formT
  96.  Get the dimensions of the Dummy ListBox  
  97.  Calculate the size and placement of the MultiPick ListBox based
  98.  on the size and placement of the Form and the Dummy ListBox.s
  99.  Create the MultiPick ListBox
  100.  lpClassName: we'll use the LISTBOX classd
  101.  lpWindowName: is irrelevant hereO
  102.  dwStyle: the MultiPick styleh
  103.  X, Y, nWidth, nHeight: size and placement of the MultiPick ListBoxL
  104.  hWndParent: this would be our MULTIPIK hWnd
  105.  hMenu: would be IDL_MPICK
  106.  hInstance: we've already determined thatW
  107.  lpParam: is irrelevant here
  108. LISTBOX"
  109. OKCancel_Click
  110.  If the user pressed ENTER or clicked on OK, get the total items picked
  111.  For the purposes of this demo let's limit the total to 5l
  112.  Dimension an Array of Integer to hold the indices of the items picked
  113.  Dimension a String Array to hold the selected items
  114.  Get the selections from the MultiPick ListBox, and copy themm
  115.  to the Dish Array removing ASCII 0s.k
  116.  Prove that it worked
  117. Thank you for preferring Trovadore's!"
  118.  We're done
  119.  If the user chose Cancel or pressed ESCAPE, exit"
  120. Dir1_Change
  121. Command1_Click
  122. Picture1_MouseDown
  123.     Path$ = Dir1.Path + "\"
  124.